Mazani souboru do kose v XP

Otázka od: Lenka Donatova

19. 7. 2004 11:24

Pouzivam pro mazani souboru do kose nasl. funkci

function DoKose(const filename : string) : boolean;
var FileOp : TSHFileOpStruct;
begin
if integer(GetFileAttributes(PChar(Filename))) <> -1 then
begin
  ZeroMemory(@FileOp, SizeOf(FileOp));
  FileOp.wFunc := FO_DELETE;
  FileOp.pFrom := PChar(Filename);
  FileOp.fFlags := FOF_ALLOWUNDO or FOF_SILENT or FOF_NOCONFIRMATION;
  Result:=(SHFileOperation(FileOp)=0);
end
else
  Result := False;
end;

Ve win98 vse funguje v poradku ale v XP program hlasi chybu:
"Soubor nelze odstranit: ze zdrojoveho souboru nebo disku nelze cist"

Nevite nekdo vcem muze byt problem ?
Pouzivam D6 professional

Lenka Donatova